Ephedra californica recovery
Purpose
To explore ephedra recovery following clipping. Year two in a long-term shrub removal experiment. Aboveground clipping. Panoche Hills Ecological Reserve. Removal done by A. Liczner, A. Filazzola, T. Noble, and M. Westphal. Loss of shrub effects on animals experiment separate from this survey initiated by A. Liczner and completed 2016.
Data
library(tidyverse)
library(plotly)
data <- read_csv("data/EH.recovery.2016.csv")
data## # A tibble: 20 × 6
## ID length width height resprout
## <chr> <dbl> <dbl> <dbl> <int>
## 1 P137 1.90 3.30 0.60 9
## 2 P146 3.40 2.15 0.70 10
## 3 P182* NA NA NA 15
## 4 P197 1.35 0.60 0.63 3
## 5 P200 0.00 0.00 0.00 0
## 6 P217 1.15 1.25 0.85 15
## 7 P245 3.20 2.50 0.80 8
## 8 P271 2.80 2.55 0.71 8
## 9 P273 0.80 0.90 0.55 1
## 10 P303 3.50 2.80 0.60 13
## 11 P444 2.75 0.95 0.88 5
## 12 P452 1.20 0.65 0.90 2
## 13 P462 2.33 0.85 0.70 6
## 14 P544 3.55 2.05 0.85 8
## 15 P614 1.70 1.15 0.43 12
## 16 P615 1.10 1.35 0.85 2
## 17 P618 2.10 0.95 0.70 4
## 18 P621 1.85 0.90 0.65 10
## 19 P651 2.55 2.40 1.00 10
## 20 P183* 1.40 1.20 0.60 6
## # ... with 1 more variables: observations <chr>data <- data %>% mutate(volume = ((length + width)/2)^3*3.14*(1/3))EDA
p1 <- ggplot(data, aes(resprout)) +
geom_histogram(binwidth = 1.5, fill = "dodgerblue")
ggplotly(p1)p2 <- ggplot(data, aes(volume, resprout)) +
geom_point(color = "dodgerblue") +
geom_smooth(method = lm)
ggplotly(p2)